Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With Image1
        'wϹɮ
        Set .Picture = LoadPicture(ThisWorkbook.Path & "\Test.jpg")
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim myStr As String
    Dim Ipic As IPictureDisp
    With Image1
        Set Ipic = .Picture
        If Ipic Is Nothing Then
        Else
            myStr = Application.GetSaveAsFilename()
            If myStr <> "False" Then
                SavePicture .Picture, myStr
            End If
        End If
    End With
End Sub
